home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
Z-Misc Series
/
(k)zk.d64
/
pl0.test2
< prev
next >
Wrap
Text File
|
2007-03-01
|
515b
|
26 lines
0010 // VAR N, FACT, NSAVE;
0020 //
0030 // PROCEDURE FACTORIAL;
0040 // VAR NSAVE;
0050 // BEGIN
0060 // IF N=0 THEN FACT:=1;
0070 // IF N>0 THEN
0080 // BEGIN
0090 // NSAVE:=N; N:=N-1;
0100 // CALL FACTORIAL;
0110 // N:=NSAVE; FACT:=FACT*N
0120 // END
0130 // END;
0140 //
0150 // BEGIN
0160 // NSAVE:=-1234;
0170 // READ(N);
0180 // WHILE N>=0 DO
0190 // BEGIN
0200 // CALL FACTORIAL;
0210 // WRITE(FACT);
0220 // WRITE(NSAVE); WRITELN;
0230 // READ(N);
0240 // END
0250 // END.